


| 


ed mo 
— 
—o "o 
o «o 
o 


NH 
Mn 


==. == 
= = 3 
am 


= 
E 
= 


Im 





= = ——— 
Vol. 4 “Nº 60 








a 
m 
A 
pude 
m 
£ 
C: 
| 
m 
JJ 
Õ 





MODELOS E SIMULAÇÃO 


Balanço de uma empresa comercial. Variáveis de 
distribuição normal. Previsões meteorológicas. Con- 
dições de mercado. Controle de caixa .... 1181 





AVALANCHE: MAIS SALTOS 


Saindo do chão. Salto à frente. Terra firme. Che- 
cagem da segurança. Avançando posições. Alte- 
rações do escore. Ajustes finais ............ 1186 


FIGURAS TRIDIMENSIONAIS 


Desenhos em três dimensões. Criação das figuras. 
Construção do perfil. Como alterar o ângulo de vi- 
são. Rotação GS TRUTA ...osssasisssaaaa 1194 


VIDEOTEXTO E MICROCOMPUTADORES 


O que é o videotexto. Informações e serviços. Co- 
nexão ao microcomputador .................. 1200 


Editor COLABORADORES 
VICTOR CIVITA 





REDAÇÃO 
Diretor Editorial: Carmo Chagas 


Editores Executivos: Antonio José Filho, 
Berta Sztark Amar 


Editor Chefe; Paulo de Almeida 


Editora de Texto: Ana Lúcia B. de Lucena COMERCIAL 


mM 
mi 
Im 





Consultor Editorial Responsável: Dr. Renato M. E. Sabbatini 
(Diretor do Núcleo de Informática Biomédica da 
Universidade Estadual de Campinas) 

Execução Editorial: DATAQUEST Assessoria em 
fnlorbiica Ltda., Campinas, SP 

Tradução, adaptação, programação e redação: 
Abílio Pedro Neto, Aluísio J. Dornellas de Barros, 
Marcelo R. Pires Therezo, Marcos Huascar Velasco, 
Raul Neder Porrelli, Ricardo J. P. de Aquino Pereira 
Coordenação Geral: Rejane Felizatti Sabbatini 


| 
Ma Te. 


wu 
| 


À 


TA 


NI 


N 


TR ! 


MMA 
MM 
N 


| 


AM 
IAM 
a. 


o 
| 


' 
m 
AM 
ho 


1 
vi 


ma 
dh 
IN 
] 


O 


o 


o 

Dm me 

a ç 
z 


PE RES 
CRERTRS n a 

3 2 

SD TaTa 1 


AA DA ES 


AN 


OA Á 
PPA 
ASA. 


Ú 
A 
EMA RR E 
E 
NOR RB 
" a 
À o we 


À No 





ha So Po ag a a SS 


PLANO DA OBRA 


o N PUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 


COLABORE CONOSCO 


Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor -— Caixa Postal 9442, 
São Paulo — SP. 


PAUS + 


Preparador de Texto/Coordenador: Eliel Silveira Cunha 
Preparadores de Texto: Alzira Moreira Braz, 

Ana Maria Dilguerian, Levon Yacubian, 

Luciano Tasca, Maria Teresa Galluzzi, 

Maria Teresa Martins Lopes, Paulo Felipe Mendrone 
Revisor/Coordenador: José Maria de Assis 

Revisoras: Conceição Aparecida Gabriel, 

Isabel Leite de Camargo, Ligia Aparecida Ricetto, 

Maria de Fátima Cardoso, Nair Lucia de Britto 

Paste-up: Anastase Potaris, Balduino F. Leite, Edson Donato 


(O Marshall Cavendish Limited 1984/85. 


Chefe de Arte: Carlos Luiz Batista 

Assistentes de Arte: Dagmar Bastos Sampaio, 

Grace Alonso Arruda, Monica Lenardon Corradi 
Secretária de Redação/ Coordenadora: Stefania Crema 
Secretários de Redação: Beatriz Hagstrôm, 

José Benedito de Oliveira Damião, Maria de Lourdes Carvalho, 
Marisa Soares de Andrade, Mauro de Queiroz 


Diretor Comercial: Roberto Martins Silveira 
Gerente Comercial: Flávio Maculan 
Gerente de Circulação: Denise Maria Mozol 


PRODUÇÃO 
Gerente de Produção: João Stungis 
Coordenador de Impressão: Atílio Roberto Bonon 


(O Editora Nova Cultural Ltda., São Paulo, Brasil, 1986. 
Edição organizada pela Editora Nova Cultural Ltda. 

Av. Brigadeiro Faria Lima, nº 2000 - 3º andar 

CEP 01452 - São Paulo - SP - Brasil 

(Artigo 15 da Lei 5 988, de 14/12/1973). 

Esta obra foi composta na AM Produções Gráficas Ltda. 
e impressa na Divisão Gráfica da Editora Abril S.A. 





4 




















MODELO E COMOSIMULAROCUMA 


DISTRIBUIÇÃO NORMAL 


di! Il /À AFA Õ “CONDIÇÕES DE MERCADO 
SIMU LACÃO LE CONTROLE DE CAIXA 





Retomando nossos estudos sobre o uso 
de modelos, apresentamos neste artigo 
um programa que se vale de alguns 
princípios econômicos para simular o 
balanço de uma empresa comercial. 


No artigo da página 1176, examina- 
mos o papel da simulação em várias 
áreas de pesquisa. Vimos também como 
gerar diferentes variáveis aleatórias, ca- 
da qual adequada a uma determinada si- 
tuação. Como demonstrou nosso pro- 
grama de simulação normal, a geração 
de variáveis normalmente distribuidas é 
muito simples, mas não tão eficiente — 
foram necessários quinze números alea- 
tórios para criar uma unica variável. O 
programa deste artigo usa um método 
mais eficaz, que permite simular diver- 
sos aspectos de uma pequena empresa 
comercial. Este programa também po- 
de ser utilizado como um jogo (até bem 
divertido), mas constitui, de fato, um 
modelo de uma situação real. 


10 POKE 23658,8: POKE 23609, 
12 

20 PAPER O: BORDER O: INK 7: 
CLS 

30 PRINT AT 0,8; INVERSE 1;" 
BATATA QUENTE " 

40 DIM AS(4,12): DIM L(2): 
DIM D(10): DIM W(2): DIM Q(2) 
- DIM P(2) 

SO LET AS(1)="QUENTE E SECO”: 
LET D(3)=150: LET D(4)=300 

60 LET AS(2)="QUENTE E UMIDO" 
- LET D(5)=100: LET D(6)=200 
70 LET AS(3)="FRIO E SECO": 
LET D(7)=250: LET D(8)=160 

BO LET AS(4)="FRIO E UMIDO”: 
LET D(9)=200: LET D(10)=100 
S80 DIM C(4,2): LET C(1,1)=.1: 
LET C(1l,2)=.15 
590 LET C(2,1)=0.5: LET C(2,2) 
=0.25 
600 LET C(3,1)=0.01: LET C(3,2 
J=0.12 
610 LET C(4,1)=10: LET C(4,2)= 
10 
620 INPUT "QUANTOS JOGADORES ( 
1=b) 7? *i:NW 
625 IF N<l OR N>6 THEN GOTO 
620 





627 DIM K(N): DIM T(Z,N): DIM 
O(2,N) 

630 FOR I=1l TO 2: 
640 LET T(1I,J)=0 
650 NEXT J: NEXT I 
700 FOR K=1 TO 10 
710 LET PI=INT (10*(.3+ (AND*1/ 
2)))/10 

720 LET P2=INT 
2)))/10 

730 PRINT INK 4; BRIGHT 1;* 


rm co O O A —— e — —— —— o — o — e 


FOR J=1 TON 


(10* (. 2+ (AND*1/ 


TT — o. e — — — E OOo —o— — — — — 


PRINT "Prob. de um dia que 
e seco ”";,100*P1;"4” 
PRINT "Prob. de um dia sec 
o: ":.100*P2;"%" 
GOSUB 1400 

LET UlI=RND*1: LET UZ=AND*1 
LET VI=SOR (2*(LN (1/U1))) 
790 LET V2=COS (2*PI*U2): LET 
V3=SIN (2*PI*U2) 


800 LET Z1I=INT (VI*V2): LET Zz 
=INT (V1*V3) 

B10 LET Al=P1*P2: LET AZ=Pl 
B20 LET A3J=Pl+P2-Al: LET Ad=l: 
LET F=RND*1 

B21 PRINT IF FSAlL THEN LET 
R=1 

B22 IF F>Al AND F<=A2Z THEN 
LET R=2 

B23 IF F>A2Z AND F<=A3 THEN 

LET R=3 

824 IF F>A3 AND F<=A4 THEN 
LET R=4 

830 CLS PRINT "O TEMPO ESTA 
":AS(R) 


840 LET D(1)=INT (D(1+R*22)+Z1* 


25): LET D(2)=INT (D(2+8*2)+Z2 
*40) 

850 PRINT "Demanda de batatas 
assadas =";D(1) 

B60 PRINT "Demanda de latas de 
coca =";D(2) 

990 PRINT '" 

1000 PRINT INK 5; INVERSE 1:"J 


OGADOR GANHO CUSTOS LUCRO * 
1010 GOSUB 1600 

1020 NEXT K 

1030 PAUSE 200 

1090 CLS 


1100 PRINT ” RESULTADO FINAL A 
POS 10 DIAS *** 

1110 PRINT "JOGADOR”,"LUCRO TOT 
AL” 

1120 FOR J=1 TO N 

1130 PRINT J,K(J): NEXT J 

1140 PRINT "*: PRINT "FIM DE JO 
Go” 

1150 STOP 

1400 PRINT "SEU PEDIDO POR FAVO 
R *: PRINT 

1410 FOR J=1 TON 


1420 
1430 


PRINT 
INPUT 


“JOGADOR” ;J: PRINT 
"NUMERO DE BATATAS Q 


UENTES ";0(1,9J) 
1440 
COCA 
1450 
1460 
1600 


INPUT “NUMERO DE LATAS DE 
COLA” ;0(2,9) 

NEXT J 

RETURN 


FOR J=1 TON 


1610 
1620 
1630 
1650 
1670 
1680 
00 

1690 


FOR I=1 TO Z 

LET L=0(I,)J) 

IF D(I)<L THEN LET L=D(I) 
LET W(I)=C(Z,I)*L 

LET Q(I)=C(1,1I)*0(I,J) 

IF D(I)J>L(I) THEN GOTO 17 


LET Q(I)=Q(I)-C(3,I)*(O(I, 


J)-D(I)) 


1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


:ESTAB 


1780 
1790 


LET P(I)=W(I)-Q(I) 

LET T(I,J)=T(I,J)+P(I) 
NEXT 1 

LET K(J)=T(1l,J)+T(2,J)-200 
LET E=W(1)+W(2) 

LET C=0(1)+0(2)+20 

LET P=P(1)+P(2)-20 

PRINT INK 6;TAB 3;J; TAB 9 
L8B;C;TAB 25;P;'"" 

NEXT J 

RETURN 


> R=AND(-TIME) 
10 PI=4*ATN(1) 
20 CLS 


30 PRINT TAB (13);"Batata quente 
"PRINT: 


PRINT 





[II 


a dE 















580 C1l(1)=.1:C1(2)=.15 

590 C2(1)=.5:C2(2)=.25 

600 C3(1)=.01:C3(2)=.12 

620 INPUT"QUANTOS JOGADORES 
6) ";N 

625 IF N<l OR N>6 THEN 620 
630 FOR I=1 TO 2:FOR J=1 TON 
640 TP(I,J)=0O 

650 NEXT J,I 

!00 FOR K=1l TO 10 

710 PI=INT(10*(.3+RND(1)/2))/10 
720 P2=INT(10*(.2+8ND(1)/2))/10 
725 PRINT” QUALQUER TECLA PARA 
CONTINUAR” 

726 IF INKEYS="" THEN 726 

730 PRINT"dia”;K: PRINT 

740 PRINT”PROB. DE UM DIA QUENT 
E :”";100*P1;"%” 
750 PRINT"PROB. DE 
:” ,100*P2;"%” 

760 GOSUB 1400 

770 UI=RND (1) :U2Z2=RND (1) 

780 V1I=S50R (2* (LOG (1/U1))) 

790 V2=C08 (2*PI*U2) :VI=SIN(2*PI 
*UZ) 

BO0O Z1I=INT(VI*V2):Z2=INT(VI*V3) 
B1L0 Al=P1L*P2:A2=P1l 

B20 AJ=PL+P2-Al:A4=]:F=AND(1) 


(= 


UM DIA SECO 
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CLS: IF F<=Al THEN 830 


BzZl 
822 
823 


IF F>Al AND F<=A2Z THEN 870 

IF F>AZ AND F<=A3 THEN B1O0 

B24 IF F>A3 AND F<=A4 THEN 950 

830 PRINT"O TEMPO ESTA QUENTE E 
SECO” 

840 D(1)=150+21*25:D(2)=300+Z2* 
40:Goto 970 

B70 PRINT"O TEMPO ESTA QUENTE E 
UMIDO” 

B80 D(1)=100+Z1*25:D(2)=200+Z22* 
40:GOTO 970 

910 PRINT"O TEMPO 
ECO” 

920 D(1)=250+Z1*25:D(2)=160+Z2* 
40:GOTO 970 


ESTA FRIO E S 


950 PRINT"O TEMPO ESTA FRIO E U 


MIDO” 

960 D(1)=200+Z1*25:D(2)=100+Z2* 
40 

970 PRINT"DEMANDA DE BATATAS AS 
SADAS=";D(1) 

980 PRINT"DEMANDA DE 
OCA=";D(2) 

1000 PRINT"JOGADOR GANHO CUST 
OS LUCRO” 

1010 GOSUB 1600 

1020 NEXT K 


LATAS DE C 


1030 
1090 
1100 
Ss 10 
1110 
ad 
1120 
1130 
1140 
0Go”" 
1150 END 

1400 PRINT:PRINTTAB(5);"seu ped 
ido por favor”":PRINT 

1410 FOR J=1 TON 

1420 PRINT" JOGADOR” ;J: PRINT 
1430 INPUT"NUMERO DE BATATAS" ;O 
(1,9) 

1440 INPUT"NUMERO DE LATAS DE C 
OCA COLA" ;0(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J=1 TON 

1610 FOR 1I=1 TO 2 

1620 L=0(I,J) 

1630 IF D(I)J<L THEN L=D(I) 

1650 RV(I)=C2(1)*L 

1670 TC(I)=CI(I)*O(I,J) 

1680 IF D(I)<=L THEN RC(I)=TC(I 
)J-CI(I)A(OCI,J)-DI(I)) 

1700 P(I)=RV(I)-TC(I) 

1710 TP(I,J)=TP(IL,J)+P(I) 

1720 NEXT I 

1730 TT(J)=TP(L,J)+TP(2,9)-200 
1740 E=BV(1)+BV[(2) 

17580 C=TC(1)+TC(2)+20 
1760 P=P(1)+P(2)-20 
1770 PRINTUSING" | 
HEART J,E,C,P 
1780 NEXT J 

1790 RETURN 


TS — 8 7=— 
| | | | 1 


a 


FOR I=1 TO 2000:NEXT 
CLS 

PRINT” RESULTADO FINAL 
DIAS ":PRINT:PRINT 
PRINT" JOGADOR” ,"LUCRO TOTA 


APO 


FOR J=1l TO N 
PRINT J,TT(J):NEXT J 
PRINT:PRINT:PRINT"FIM DE J 


at. 4% 


" q 1 bai E | 
O O e 


10 PI=4*ATN(1) 

20 HOME 

30 PRINT TAB(13);"BATATA QUENTE 
": PRINT: PRINT 

580 C1l(1)=.1:C1(2)=.15 

590 C2(1)=.5:€C2(2)=.25 

600 cC3(1)=.01:C03(2)=.12 

620 INPUT"QUANTOS JOGADORES (1- 
6) “;N 

625 IF N<l OR N>6 THEN 620 

630 FOR I=1l TO 2:FOR J=1l TON 
640 TP(I,J)=0 

650 NEXT J,1 

700 FOR K=1 TO 10 

7210 P1=INT(10*(.3+RND(1)/2))/10 
720 P2=INT(10*(.2+AND(1)/2))/10 
725 PRINT” QUALQUER TECLA PARA 
CONTINUAR” 

726 GET WS 

730 PRINT"DIA”;K: PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :”;100*P1;"%” 

750 PRINT"PROB. DE UM DIA SECO 
:",100*P2;" 4%" 

760 GOSUB 1400 

770 UI=AND(1) :UZ=RND(1) 

780 V1l=S0R(2* (LOG (1/U1))) 

790 V2=C0OS (2*PI*U2) :V3=SIN(2*PI 
*U2) 

800 Z1=INT(VI*V2):Z2=INT(VI*V3) 





810 
820 
821 
822 
823 


Al=PIL*XP2:A2=Pl 

A3=Pl+P2-Al:Ad=1:F=AND(1) 

HOME: IF F<=Al THEN B30 

IF F>Al AND F<=A2Z THEN 870 

IF F>AZ AND F<=A3 THEN 810 
824 IF F>A3 AND F<=A4 THEN 950 
830 PRINT"O TEMPO ESTA QUENTE E 
SECO” 

840 D(1)=150+21*25:D(2) =300+Z2* 
40:GoTo 970 

870 PRINT"O TEMPO ESTA QUENTE E 
UMIDO” 

880 D(1)=100+21*25:D(2)=200+Z2* 

40:GoTo 970 

910 PRINT"O TEMPO ESTA FRIO E 5 
ECO” 

920 D(1)=250+21*25:D(2)=160+Z2* 

40:GOTO 970 

950 PRINT"O TEMPO ESTA FRIO E U 

MIDO” 

960 D(1)=200+21*25:D(2)=100+22* 

40 

970 PRINT"DEMANDA DE BATATAS AS 

SADAS=" ;D(1) 

980 PRINT"DEMANDA DE LATAS DE C 


OCA=";D(2) 

1000 PRINT"JOGADOR GANHO CUST 
OS LUCRO” 

1010 GOSUB 1600 

1020 NEXT K 

1030 FOR I=1 TO 2000:NEXT 

1090 HOME 

1100 PRINT” RESULTADO FINAL APO 
S 10 DIAS *:PRINT:PRINT 


1110 
[” 
1120 
1130 
1140 
0Go” 
1150 
1400 PRINT:PRINTTAB(5);"SEU PED 
IDO POR FAVOR”: PRINT 

1410 FOR J=1 TO N 

1420 PRINT" JOGADOR” ;J:PRINT 


1430 INPUT"NUMERO DE BATATAS" ;0 
(1,9) 

1440 INPUT"NUMERO DE LATAS DE C 
OCA COLA" ;0(2,J) 

1450 NEXT J 


1460 RETURN 

1600 FOR J=1 TO N 

1610 FOR I=1 TO 2 

1620 L=0(1,J) 

1630 IF D(I)<L THEN L=D(I) 
1650 RV(I)=C2(I)*L 

1670 TC(I)=CI(I)*0(I,J) 
1680 IF D(I)<=L THEN RC(I)=TC(I 
)J-C3(I)*(OCI,J)-D(I)) 

1700 P(I)=AV(I)-TC(I) 

1710 TP(I,J)=TP(I,J)+P(I) 
1720 NEXT 1 


1730 TT(J)=TP(1L,J)+TP(2,J)-200 
1740 E=RV (1) +RV(2) 

1750 C=TC(1)+TC(2)+20 

1760 P=P(1)+P(2)-20 

1770 PRINT TAB(2);J;TAB(9) GE;TA 
B(1l7);C;TAB(25);P 

1780 NEXT J 

1790 RETURN 


PRINT” JOGADOR”, "LUCRO TOTA 


FOR J=1 TO N 
PRINT J, TT(J) :NEXT J 
PRINT: PRINT: PRINT"FIM DE J 


END 


RO 50 


10 PI=4*ATN(1) 

20 CLS 

30 PRINT €10,"batata quente”: PR 
INT: PRINT 

580 Cl(1)=.1:C1l(2)=.15 

590 C2(1)=.5:C2(2)=.25 

600 c3(1)=.01:C3(2)=.12 

620 INPUT"QUANTOS JOGADORES 
6) ":N 

625 IF N<1l OR N>6 THEN 620 
630 FOR I=l TO 2:FOR J=1 TON 
640 TP(1I,J)=0 

650 NEXT J,I 

700 FOR K=1 TO 10 

710 PI=INT(10*(.3+RND(0)/2))/10 
720 P2=INT(10*(.2=AND(0)/2))/10 
725 PRINT” QUALQUER TECLA PARA 
CONTINUAR” 

726 IF INKEYS="" THEN 726 

730 PRINT"dia”";K: PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :";100*P1l;"2" 

7580 PRINT”"PROB. DE UM DIA SECO 
:":100*P2;"&” 

760 GOSUB 1400 

Z70 UlL=END(0) :UZ=AND(0) 

780 V1l=SQR(2*(LOG(1/U1))) 

790 V2=CoS (2*PI*U2) :VI=BIN(Z*PI 
*U2) 
B00 
BIO 
820 
B21 
B22 
B23 


+ ha 


Z1=INT(VIAV2) : Z2=INT(V1*V3) 
Al=PIL*PZ:AZ=Pl 
AI=Pl+P2-Al:A4=]:F=RND(O) 

CLS:IF F<=Al THEN 830 

IF F>Al AND F<=A2Z THEN 870 
IF F>DAZ AND F<=A3 THEN 810 
824 IF F>A3 AND F<=A4 THEN 950 
B30 PRINT"O TEMPO ESTA QUENTE E 
SECO" 

840 D(1)=150+Z1*25:D(2)=300+22* 
40:GoToO 9/0 

870 PRINT"O TEMPO ESTA QUENTE E 
UMIDO" 

B80 D(1)=100+21*25:D(2)=200+ZZ* 
40:GOTO 970 

910 PRINT"O TEMPO ESTA FRIO E S 
ECO” 

920 D(1)=250+2Z1*25:D(2)=160+Z2* 
40:GOTO 970 

950 PRINT"O TEMPO ESTA FRIO E U 

MIDO” 

960 D(1)=200+Z1*25:D(2)=100+Z2* 

4Ú 

970 PRINT"DEMANDA DE BATATAS AS 
SADAS=";D(1) 

980 PRINT"DEMANDA DE LATAS DE C 

OCA=";D(2) 


1000 PRINT" JOGADOR GANHO  CUST 
OS LUCRO” 

1010 GOSUB 1600 

1020 NEXT K 

1030 FOR I=1 TO 2000:NEXT 

1090 CLS 

1100 PRINT” RESULTADO FINAL APO 
S 10 DIAS ":PRINT:PRINT 

1110 PRINT" JOGADOR”,"LUCRO TOTA 
L” 

1120 FOR J=1 TON 

1130 PRINT J,TT(J):NEXT J 

1140 PRINT:PRINT:PRINT"FIM DE J 


— OGO” 


END 


1400 PRINT:PRINTTAB(5);"seu ped 
ido por favor": PRINT 

1410 FOR J=1 TON 

1420 PRINTTJOGADOR” ;J: PRINT 
1430 INPUT"NUMERO DE BATATAS" :;O 
(1,dJ) 

1440 INPUTCNUMERO DE LATAS DE C 
OCA COLA";O0(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J=1 TON 

1610 FOR I=1 TO 2 

1620 L=O(I,dJ) 

1630 IF D(I)J<L THEN L-D(I) 

1650 BAV(I)=C2(I)*L 

1670 TC(I)=CI(I)JZO(I,J) 

1680 IF D(I)J<=L THEN RC(I)=TCIIL 
)-C3(I)*H(O(I,J)-D(I)) 

1700 P(I)=AV(I)J-TC(T) 

1710 TP(I,J)=TP(I,J)+P(T) 

1720 NEXT 1 

1730 TT(J)=TP(L,J)+TP(2,])-200 
1740 E=BV(1)+BV(2) 
1750 EC=TC(lI)+TEC(Z2)+20 
1760 P=P(1)+P(2)-20 
1770 PRINTUSINGO” + 


| tt. di 
HRDRE HERE; J,E,C,P 





1780 
1790 


NEXT J 
RETURN 


O programa focaliza os lucros e per- 
das de uma empresa do setor de alimen- 
tos, oferecendo ao usuário a opção de 
atuar sozinho ou de negociar com até 
cinco outros ''comerciantes'”. 

O usuário também pode jogar no lu- 
gar de outras pessoas, tomando decisões 
diferentes conforme o papel assumido 
— o que lhe dá a oportunidade de com- 
parar os resultados que obtém, agindo 
cautelosamente ou se arriscando em lan- 
ces ousados. Tendo feito sua escolha, ele 
deve fornecer o número de participan- 
tes ao programa. 





ELEMENTO DE ACASO 


Cada jogador administra um bar que 
vende batatas assadas e latas de refrige- 
rante. A demanda por um ou por outro 
produto depende do clima. Se está fa- 




















































94 PROGRAMAÇÃOBASIC 94 


zendo frio, aumenta a procura pelas ba- 
tatas; se faz calor, compra-se mais re- 
frigerante. Infelizmente, o gerente pre- 
cisa adquirir o estoque na véspera, des- 
conhecendo, portanto, o tempo que vai 
fazer. Pode contar, até certo ponto, com 
o serviço de meteorologia, que costuma 
acertar, em média, 70% de suas previ- 
sões. Após dez dias de compras e ven- 
das, o administrador que obtiver maior 
lucro vence. 





PREVISÕES 


A primeira parte do programa (até a 
linha 650) cuida das variáveis que con- 
trolam a tela e as condições de compra 
e venda. Você paga um aluguel de $ 20 
por dia. As batatas custam $ 0,10 ca- 
da e são vendidas a $ 0,50. O refrige- 
rante custa $ 0,15 para compra e $ 0,25 
para venda. As sobras do estoque de 
um dia para outro são vendidas a um 
preço mais baixo — $ 0,01, as batatas 
e $ 0,12, o refrigerante. Cada partida 
dura dez dias. 

O indicador da demanda de cada pro- 
duto, conforme o clima, está na tabela 
da página 1185. Aqui entra um elemen- 
to importante do modelo. Naturalmen- 
te, os dias melhores para a venda de ba- 
tatas assadas são os piores para a ven- 
da de refrigerantes e vice-versa. Contu- 
do, há uma demanda suficiente para 
manter as vendas de ambos os produ- 
tos. Tudo depende de como aproveita- 


mos as informações fornecidas pelo ser- 
viço de meteorologia, sempre tendo em 
mente, porém, que as previsões não são 
totalmente confiáveis. As probabilida- 
des para um dia quente e seco são de- 
terminadas nas linhas 710 e 720, e de- 
pois utilizadas para simular as condições 
do tempo (linhas 810 a 824). 


VARIÁVEIS ALEATÓRIAS 





As linhas 770 a 800 contêm um mé- 
todo sofisticado para gerar variáveis 
aleatórias de distribuição normal. Elas 
são empregadas para simular a deman- 
da na linha 840. A linha 770 cria duas 
variáveis aleatórias (Ul e U2), proces- 
sadas por meio de três fórmulas mate- 
máticas. Na linha 780, Ul é invertida e 
depois elevada ao quadrado; em segui- 
da, calculamos o seu logaritmo natural 
ea raiz quadrada deste V1. A linha 790 
faz V2 igual ao co-seno de uma circun- 
ferência de raio U2, e V3 igual ao seno 
dessa circunferência. Vl, V2 e V3 so- 
frem um processamento adicional na li- 
nha 800 para resultar nas variáveis nor- 
mais Zl e Z2. 

As linhas restantes do programa cui- 
dam da entrada e da impressão dos re- 
sultados na tela, 

Para ser bem-sucedido neste jogo é 
preciso cuidar de cada centavo. Os gas- 
tos podem ser assustadoramente próxi- 
mos dos ganhos — mesmo após dez dias 
de atividade. 


COS ad Aa ds DOCTOR CDA. 


COCO LLC ATE Sa a E a a mm MIT] 


COS IS ISIS SESI TETE EA AAA AAA 


MTE TETE CCEDOCACETCCADECDECTLCOLCECCCDCLTECOPECECCCLCLCECCDCLSDESLCCLTRAENSC CCEE. 


PO ADA dd o ad 


COTOVELO aan san... 


AVALANCHE: corabeniotendadi 
MAIS SALTOS 


vai torná-lo capaz de saltar à 












frente, ultrapassando os obstáculos 
como um ágil cabrito montês. 








Esta é a parte final da série de roti- mms 390 REM ld (57332),hl 
nas que cuidam dos movimentos de Wil- i po pi Es pese ANDA 
lie. Finalmente, veremos nosso persona- “o 


420 REM ld de,258 | 


gem não só subir a encosta e se desviar 140 REM org 59472 240 DEM call SRO?U 
das pedras, como também saltar sobre 20 REM mfj cp 129 440 REM ld a,l 
os buracos e as cobras. 30 REM yr nz,mfb 450 REM 1d(57334),a 
40 REM inc a 460 REM ret 
50 REM ld (57335),a 470 REM mfc ld h1,(57332) 
60 REM ld h1,(57332) 480 REM 1d bc,57016 
70 REM ld de,22561 490 REM ld a,4o | 
BO REM add hi,de 500 REM ld de,514 














“170 


mfa ld h1,(57332) 


90 REM ld a, (h1l) 510 REM call 58970 
100 REM cp 43 520 REM inc hl 

110 REM 5p z,mdy 530 REM 1d (57332),hl 
120 REM cp dá 540 REM ld de,22592 
130 REM jr nz,mfa 550 REM add hl,de 

140 REM ld h1,(57332) 560 REM ld a, (h1) 

150 REM dec hl 570 REM cp 44 
160 REM ld (57332),hl 580 REM jr nz,mcf 


590 REM 1d a,0 


prega] 



























180 REM ld de,32 600 REM ld (57335),a 

190 REM sbc hl,de 610 REM ld a,3 A 
200 REM ld (57332),hl 620 REM ld b,5 o 
210 REM ld bc,57072 630 REM call sci , 
220 REM ld de,515 640 REM mcf ld a,0 A 
230 REM lá a,40 650 REM ld (57334),a | 
240 REM call 58970 660 REM ret 

250 REM ret 670 REM mfd ld a,0 

260 REM m£fb cp 132 6B0 REM ld (57335),a 

270 REM jr z,;mfd 690 REM 1d h1,(57332) 

280 REM inc a 700 REM dec hl 

290 REM ld (57335),a 710 REM 1d bc, 16384 

300 REM ld a, (57334) 720 REM ld a,45 ê. 
310 REM cp 1 730 REM ld de,514 

320 REM jr z,mfc 740 REM call 58970 

330 REM ld h1l, (57332) 750 REM ld de,33 

340 REM lá bc, 16384 760 REM add hl,de 

350 REM ld a,45 770 REM ld (57332),hl 

360 REM ld de,515 780 REM jp 59153 

370 REM call 58970 790 REM org 59895 
380 REM inc hl 800 REM sci ret 


810 REM org 59330 | 
820 REM mdy * 


. 


Ends io ai 





Quando o programa chama esta ro- 
tina pela primeira vez, o acumulador 
contém 129. Esse valor é armazenado na 
posição 57335 da memória quando as te- 
clas M e N são pressionadas juntas. 





SAINDO DO CHÃO 


Antes de mais nada, esta rotina verl- 
fica se o acumulador contém o valor 
129. O número também poderia ser 130, 
131 ou 132 — e, se qualquer um deles 
estiver presente, os comandos cp 129 e 
jr nz,mfb desviam o programa para o 
rótulo mfb. Na primeira vez que se cha- 
ma a rotina, porém, o número no acu- 
mulador é 129. 

A tarefa seguinte consiste em incre- 
mentar o acumulador e carregá-lo de 
volta em 57335. A instrução Id 
h1,(57332) transfere para a posição de 
Willie de 57332 para o par HL. O par 
DE é carregado com 22561 e adiciona- 
do em HL, para que obtenhamos a cor 
da posição adiante dos pés de Wille. A 
instrução ld a,(hl) carrega no acumula- 
dor o código dessa cor. Em seguida, o 
código é comparado com 43, a cor da 
cobra. Se esse valor é encontrado, Wil- 
lie está saltando sobre a língua da co- 
bra, e, fatalmente, leva uma picada e 
morre. À instrução jp z;mdy desvia en- 


CUNNENDDD O as comico Demiauma as 


SALTO A FRENTE 





TERRA FIRME 
CHECAGEM 





tão a rotina para o rótulo mdy, que pro- 
videncia a eliminação de Willie. 

Se ele não morreu, o programa com- 
para a cor da posição adiante de seus pés 
com 44, a cor da terra. Se não há essa 
cor na frente de Willie, a instrução jr 
nz,mfa desvia o programa para a roti- 
na mfa. Caso contrário, a posição de 
Willie é diminuída de um. 

Em mfa, a posição de Willie é colo- 
cada em HL. DE é carregado com 32 e 
subtraído de HL, para mover o apon- 
tador um caractere acima na tela. Esse 
valor é colocado de volta em 57332. 

O par BC é carregado com 57072, 0 
endereço inicial para os dados de uma 
das figuras de Willie no salto para a 
frente. O par DE é carregado com 515, 
para especificar que um bloco dois por 
três será impresso — 2x 256 + 3 = 515. 
A cor de Willie — 40, azul sobre ciano 
— é carregada com A, e a rotina de im- 
pressão é chamada, 

Na próxima vez que ela for chama- 
da, o acumulador conterá 130. Logo, o 


SAINDO DO CHÃO 


"SUBIDA DA ENCOSTA 
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processador pulará a primeira parte, 
executando-a a partir do rótulo mfb. 
Essa pequena rotina começa com um 
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teste. O conteúdo do acumulador é com- 
parado com 132. Se esse valor está pre- 
sente, a rotina mfd é chamada. Portan- 
to, caso o acumulador contenha 130 ou 
131, a rotina acionada é a mfb. 

A primeira coisa que mfb faz é incre- 
mentar A e carregar o resultado de vol- 
ta em 57335. 

Em seguida, a variável da caminha- 
da é carregada da posição de memória 
57334 para o acumulador. Com isso, In- 
forma-se ao processador qual das duas 
figuras de Willie é necessária. 

O conteúdo do acumulador é compa- 
rado com 1. Se 1 está presente, o pro- 
grama salta para o rótulo mfc e impri- 
me a figura de Willie com as pernas 
abertas. Antes que ela seja impressa, 
qualquer vestígio da figura anterior de- 
ve ser apagada. Para isso, a posição de 
Willie é transferida de 57332 para o par 
HL. O par BC é carregado com 16384, 
o início da tela. A é carregado com 45, 
para selecionar a cor ciano sobre ciano, 
e o par DE, com 515, para selecionar um 
bloco dois por três — 2x 256 + 3 = 
515. A rotina de impressão de bloco em 
58970 é chamada, apagando a figura an- 
terior de Willie. 

HL é incrementado, movendo o 
apontador de tela para a próxima posi- 
ção. Esse valor é colocado de volta no 
apontador do endereço 57332, ajustan- 
do-ô também. BC é carregado com 
57000, que é o início dos dados para a 
figura de Willie com as pernas juntas. 
A é ajustado com 40 — cor azul sobre 
ciano. DE é ajustado com 258 — o blo- 
co de um por dois caracteres. 

Impressa a figura de Willie, A é car- 
regado com 1. Esse valor é armazenado 
em 57334, para que, na próxima vez, a 
outra figura seja impressa. 


WILLIE AVANÇA 





Quando a rotina for chamada nova- 
mente, a variável da caminhada em 
57334 conterá 1 e o processador irá di- 
retamente para o rótulo mfc. Nessa ro- 
tina, o par HL é carregado mais uma vez 
com a posição de Willie. BC é carrega- 
do com 57016, o endereço inicial para 
os dados da figura do personagem com 
as pernas abertas. A é ajustado de no- 
vo com 40, e DE, com 515 — a figura 
de Willie com as pernas abertas ocupa 
um bloco de dois por dois. A rotina de 
impressão é chamada, e Willie é impres- 
so com as pernas abertas. 

Observe que HL não foi incrementa- 
do nesta parte da rotina porque Willie 
ocupa, agora, duas posições. Ele avan- 
çou, portanto, aproximadamente meta- 
de de um caractere. 


0! | | 


Uma vez que a figura tenha sido im- 
pressa, o apontador de tela em HL e 
57332 é incrementado, fazendo com que 
Willie efetivamente avance. 





SUBIDA DA ENCOSTA 


Em seguida, devemos verificar se 
Willie está pisando na encosta ou não. 
DE é carregado com 22592, que é adi- 
cionado à posição de tela em HL. Com 
isso, ele passa a apontar para a cor da 
posição abaixo dos pés de Willie. A ins- 
trução ld a,(hl) carrega essa cor no acu- 
mulador, onde é comparada com 44. Se 
a cor da encosta não se encontra em A, 
Willie está no espaço aberto — e a ins- 
trução jr nz,mcf manda o processador 
para o rótulo mef. 

Mas, se o acumulador contém a cor 
da encosta, Willie conseguiu subir um 
aclive, merecendo um número adicional 
de pontos. E preciso, então, interrom- 
per o salto e atualizar o escore. Para is- 
so, O é carregado em A e armazenado 
no endereço 57335. O valor 3 é carrega- 
do em A e 5 em B, Esses parâmetros se- 
rão utilizados por outra rotina, sci — ou 
incremento do escore. Na verdade, adi- 
cionaremos o valor 50 ao escore. O nú- 
mero 5 será adicionado à coluna das de- 
zenas, que é a terceira a partir da esquer- 
da. Em seguida, a rotina sci é chamada 
— como ela ainda não foi digitada, co- 
locamos um ret provisório em seu ende- 
reço inicial. 

Uma vez marcados os pontos, A é 
carregado com 0 e armazenado em 
57334, quer Willie esteja pisando na en- 
costa ou não. Indica-se, assim, que a 


próxima figura a ser impressa é a do per- - 


sonagem com as pernas juntas. 


| TERRA FIRME | | 


Quando todas as figuras de Willie sal- 
tando já tiverem sido exibidas na tela, 
a variável de salto em 57335 terá o va- 
lor 132. Portanto, na próxima vez que 
a rotina de movimentação for chama- 
da, o programa irá direto para a última 
rotina que começa com o rótulo mfd, 
Essa rotina começa igualando a variá- 
vel de salto a O. O valor O é carregado 
também em A e armazenado em 57335. 
A seguir, a posição de Willie na tela é 
decrementada. 

O par BC é carregado com 16384, en- 
dereço do início da tela. A é igualado 
a 45, o código de ciano sobre ciano, e 
o par DE traz 514 para um bloco de dois 
por dois. 

Chamando a rotina de impressão de 
bloco, apagaremos Willie da tela. O par 


DE é carregado com 33 e adicionado em 
HL. Com isso, movemos o apontador 
uma linha para baixo, colocando Wil- 
lie de novo em terra firme. O resultado 
é armazenado em 57332. 

Finalmente, a rotina de movimenta- 
ção é acessada pela instrução jp. Essa 
rotina imprimirá Willie novamente de pé 
em sua posição sobre o solo, e pesqui- 
sará o teclado. 


ERR aa 


10 oAG 20321 

20 MFJ CMPA 4129 
30 BNE MFB 

40 INC 18261 

50  LDX 18249 

60 LEAX 290,X 


70 LDA ,X 

B0  CMPA 4557 
90 LBEQ MDY 
100 JSK MFZ 
110 LDX 18249 
120 LEAX -255,X 
130 STX 18249 
140 LDU 417814 
150 JSR CHARPR 
160 LEAX 254,X 
170 LDU 417846 
180 JSR CHARPR 
190 RTS 

200 MFB CMPA 4130 
210 BNE MFC 
220 INC 18261 
230 JSR MFZ 
240 LDX 18249 
250 LEAX -255,X 
260 STX 18249 
270 LDU 41/8/0 
280 JSR CHARPR 
290 LEAX 254,X 
300 JSR CHARPR 
310 LEAX 254,X 
320 JSR CHARPR 
330 LDX 18249 
340 LEAX 864,X 
350 LDA ,X+ 
360 CMPA 45SFF 
370 BEQ MEF 
380 LDA ,X 

390 CMPA 45FF 
400 BEQ MEF 
410 RTS 

420 MFF LDA +44 
430 LDB 45 

440 JSR SCI 
450 ARTS 

460 MEC CMPA 4131 
470 BNE MED 
480 INC 18261 
490 JSR MEZ 
500 LEAX 254,X 
510 LDU 41536 
520 JSA CHARPR 
530 LDX 18249 
540 LEAX 257,X 
550 STX 18249 
560 LDU 417814 
570 JSAR CHARPR 
580 LEAX 254,X 











590 LDU 417846 qiiência, a segunda parte desta rotina se- na, que utiliza os dados como pilha do 
600 JSR CHARPR rá chamada na próxima vez. usuário, é chamada; X é somado a 254, 
610 RTS A instrução LDX 18249 transfere a movendo-se para a posição inicial da 
A do a posição de Willie de 18249 para X. O metade inferior de Willie. U é carrega- 
640 JSR MEZ número 290 é adicionado para indicar do com 17846, o início dos dados para 
650 LDX 18249 o byte adiante dos pés do personagem. a metade inferior da figura, e CHARPR 
660 PSHS X LDA ,X carrega o conteúdo desse byte é chamada mais uma vez, imprimindo 
670 LEAX 512,X no acumulador e a instrução CMPA Willie sobre a encosta. 

680 LDY ,X * 457 compara-o com $57, a cor gráfi- 

690 PULS X ca para a língua da cobra. Se houver es- Sr 

700 CMPY 455555 sa cor na frente de Willie no momento SAINDO DO CHAO 

À e RN a do salto, ele será picado e morrerá. Ca- | | , 
730 SK 18249 berá à instrução LBEQ MDY comandar Quando a rotina de movimentação 
740 MEE CLR 18261 a execução da rotina da morte. for chamada de novo, o acumulador 
750 DCLR 18251 Se nosso personagem ainda está vi- conterá 130, e a rotina MFB será exe- 
760 LDX 18249 vo, O processador vai para a rotina  cutada. Nas chamadas posteriores, o 
770 LDU 417774 MFZ, que apaga os dois caracteres abai- acumulador conterá um valor maior e 
780 JSR CHARPR xo de Willie — para que os pés da figu- as instruções CMPA % 130 e BNE MFC 
790 LEAR 294,4 ra anterior não permaneçam ali. desviarão o fluxo de processamento pa- 
Aa Eta CHARPR A posição de Willie, transferida ou- | ra a próxima parte do programa. Como 
820 MEZ LDX 18249 tra vez de 18249 para X, é subtraída de sempre, a primeira coisa que a rotina faz 
830 LDU 41536 255, para mover a posição um caracte- é incrementar o conteúdo de 18261. De- 
840 JSR CHARPR re para cima. À nova posição na tela é pois, salta para MFZ, onde a metade in- 
850 LEAX 254,X armazenada de volta em 18249. ferior de Willie é apagada. 

860  JSR CHARPR O registro U é então carregado com A posição seguinte do personagem é 
870 RTS 17814, endereço inicial para os dados da carregada em X e subtraida de 255 uma 
a ee mia td figura com as pernas abertas. Lembre- vez mais. Isso move o apontador de te- 
> o Lo ) 1 : i - - 
OC NDO BAN 20158 se de que U é usado como apontador de la um caractere acima. O registrador U 


dados pela rotina CHARPR. Essa roti- 





é carregado com 17870 e CHARPR é 


Quando o processador executar esta 
rotina pela primeira vez, o acumulador 
conterá o número 129. Esse número é 
armazenado na posição de memória 
18261 pela primeira parte da rotina de 
movimentação de Willie, quando M e N 
foram pressionadas simultaneamente. 























PREPARAÇÃO DO SALTO 


De início, a rotina verifica se o valor 
129 se encontra no acumulador. Se em 
seu lugar estiverem os números 130, 13] 
ou 132, as instruções CMPA 129 e 
BNE MFB desviam o programa para 
MFB. Na primeira vez que se chama es- 
ta rotina, porém, A contém 129. 

O acumulador é incrementado e car- 
regado de volta em 18261; em conse- 





chamada três vezes. Entre cada chama- 
da, X é incrementado com 254. Impri- 
me-se, assim, uma nova figura de Wil- 
lie, em três caracteres. Embora sua al- 
tura permaneça a mesma, O personagem 
ocupa um caractere adicional porque foi 
deslocado meio caractere para cima. 


SALVO DA PEDRA 





Willie recebe mais pontos quando se 
desvia de uma pedra, pulando por cima 
dela. E necessário, portanto, verificar se 
há uma pedra sob a figura. 

A posição de Willie é transferida de 
18249 para X, sendo somada a 864, de 
modo a indicar a posição imediatamen- 
te abaixo. A é carregado com o valor do 
byte da tela apontado por X, e esse re- 
gistrador é incrementado. 

O byte da tela no registrador A é 
comparado com $FF, a cor gráfica da 
pedra. Se ela estiver presente, O proces- 
sador vai para o rótulo MFF, Caso con- 
trário, o próximo byte é carregado e 
comparado. Se a pedra estiver ali, o pro- 











cessador passa para o rótulo MFF; se 
não, ele retorna, 

A rotina MFF atualiza os pontos. A 
é carregado com 4, para indicar o digi- 
to que será ajustado — o quarto a par- 
tir da esquerda (dezenas). B é carrega- 
do com 5. A seguir, O programa salta 
para a rotina SCI, que tem a função de 
adicionar 50 pontos ao escore. Como 
ainda não digitamos essa rotina, convém 


colocar RTS em sua posição inicial, pa- 


ra evitar um erro no programa. 


— WILLIE AVANÇA 





Na próxima vez que a rotina de mo- 
vimentação é chamada, o acumulador 
contém 131. Caso esse valor não esteja 
presente, o programa é mandado para 
o rótulo MFD, pois o salto de Willie se 
encontra numa etapa mais adiantada. 

Novamente, a primeira coisa que a 
rotina faz é incrementar a variável de 
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uy 


salto em 18261. Quando a rotina voltar 
a ser chamada, o processador irá execu- 
tar diretamente a parte seguinte. 

Na segiiência, o programa salta pa- 
ra a rotina MFZ, que apaga os caracte- 
res superior e intermediário de Willie. 
Seus pés serão apagados com um carac- 
tere do céu pela próxima rotina. Esse 
trabalho de limpeza adicional precisou 
ser feito porque Willie tinha três carac- 
teres de altura na última vez. 

A posição em X, que foi ajustada du- 
rante a execução da rotina MFZ, é in- 
crementada com 254, movendo o apon- 
tador para os pés de Willie. O aponta- 
dor de dados em U é carregado com 
1536, o endereço do céu limpo, no can- 
to superior esquerdo da tela. CHARPR 
é chamada e imprime o caractere de céu. 

A posição anterior de Willie é carre- 
gada de 18249 para X e adicionada a 257, 
movendo-se um caractere para baixo. 





O apontador de dados em U é nova- 
mente carregado com o endereço inicial 
da figura de Willie com as pernas aber- 
tas em 17814. A rotina CHARPR im- 
prime sua metade superior. O aponta- 
dor de tela em X é incrementado, mo- 
vendo-se para a linha de baixo. U é car- 
regado com o endereço dos dados para 
a metade inferior da figura e CHARPR 
é chamada, realizando a impressão. 


TERRA FIRME 





O valor 132 no acumulador desvia o 
processador para a rotina que faz Willie 
pisar novamente em terra firme. Se não 
houver esse valor em À, o processador 
vai para o rótulo MFE — o que nunca 
deve ocorrer. Um conteúdo de A menor 
que 132 indica que o processador ficou 
executando alguma das rotinas anterio- 
res. Isso acontece se a variável de salto 
em 18261 — endereço de onde vem o va- 
lor de A — ainda não foi incrementada. 
Temos, assim, um bom dispositivo de 
prevenção de erros: caso haja um valor 
incorreto em 18261, o processador sal- 
ta diretamente para a instrução de lim- 
peza, que reajusta esse endereço com 0. 

Se o número em A é 132, o processa- 
dor continua com esta rotina. inicial- 
mente, ele vai para a rotina MFZ, que 
apaga a última figura de Willie. Em se- 
guida, a posição de Willie é carregada 
de 18249 para X. O apontador de tela 











| | | | 
| | 


em X é guardado na pilha, e somado a 10 org 55009 
512, passando a apontar para o carac- 20 mp cp 129 
tere imediatamente abaixo dos pés de ppa E MEM oa 

Willie. Os dois bytes são carregados no q lá (<5302) r 
registrador Y eo apontador de tela ori- sq id ni. (62407) 
ginal é recuperado da pilha de volta pa- 20 1d de,(-5205) 
ra X. 80 add hl,de 

O conteúdo de Y é comparado com 90 ld de,33 
$5555, o valor de um espaço amarelo na 100 add hl,de 
tela — ou seja, de um buraco. Se esse 110 call 74 
valor não estiver presente, o processa- 120 cp 36 
| dor vai para o rótulo MFE 130 pp 2,54846 
Se há um buraco ali, nosso persona- eo ne cd 
o gem precisa de ajuda. X é então incre- 160 a ge (=5205) 
mentado e colocado de volta em 18249, 170 dec hl 
onde está o apontador de posição. 180 Id (-5205),hl 

Como você notará, nenhuma verifi- 190 ma ld h1l,(-5205) 
cação é feita quando Willie volta ao so- 200 ld de, (62407) 
lo num nivel mais alto. Depois de saltar 210 add hl,de 
e avançar, ele sempre aterrissa num ní- 220 push hl 
vel mais alto. 230 ld de,34 
























a —- 


Do 


di 






eram , “a E Po. 
came, md bs ] 





240 add hl,de 

250 ld a,255 

260 push hl 
O salto agora está completo. Preci- 270 call 77 

samos, no entanto, limpar o contador 280 pop hl 

de salto e a posição que contém o tipo 290 inc hl 

de figura que deve ser impressa. Como 300 ld a,255 

essas posições são ajustadas com 0, o 20 call 7/7 


| Lito” Egor 320 pop hl 
processador irá para a primeira parte da 330 Jd as 





AJUSTES FINAIS. 


rotina de movimentação. ão push hi 

Ed A seção do programa apresentada 350 call 77 
neste artigo finaliza imprimindo Willie 360 pop hl 640 ld de, (62407) 
de pé, em sua nova posição. X é carre- 370 inc hl 650 add hl,de 
gado com a posição contida em 18249 380 ld a,7 660 ld a,255 
eU, com a contida em 17774. A rotina 390 | push hl 670 push hl 
CHARPR é chamada duas vezes. A úl. 400 call 77 680 call 77 
tima rotina, MFZ, é chamada para apa- tea rá em xá io Ta e 3ó 

,  Barafigura. À Ccarregado coma posi- 430 pc hi,de 710 add hl,de 
ção de Willie em 18249 e Uécarregado 440 1d a,6 720 1d a,255 

| com 1536, que equivale d um espaço 4s0 push hl 730 push h1 

| vazio, S 460 call 77 740 call 77 

, Para testar o programa, digite as se- 470 pop hl 750 pop hl 
guintes linhas: 480 dec hl 760 inc hl 

| 10 POKE 30000,57:POKE 20847,57: 490 id a,4 770 ld al 
POKE 20751,57 500 call 77 780 push h1 
20 EXEC 19426 510 ld hl, (-5205) 790 call 77 
30 FOR L=1 TO B:POKE 18261,129: 520 ld de,32 800 pop hl 
FOR J=1l TO S:EXEC 19902 530 abc hl,de 810 ld de,32 
40 FOR K=1 TO 100:NEXT K,J,L 540 LO (-5205) «hi 820  sbc hl,de 
50 GoTo 50 550 ret 830 1da,0 


560 mb cp 132 B&40 call 77 
850 ld h1,(-5205) 


| 570  3p 2,55275 
DL VER 860 — inc hi 
| (-5202) ,a 870 ld (-5205),hl 


590 ld 
; | 600 ld a,(-5203) B8B0 ld a,l 
O programa destinado ao MSX foi são cpl 890 Id (-5203),a 
dividido em duas partes para facilitar a 620 jp 2,55194 900 ret 


montagem. 630 1d h1,(-5205) 910 end 





Na primeira vez que o processador com 255ea rotina 77 é novamente cha- 
chama a rotina, o acumulador contém mada. Procedemos dessa maneira por- 
129. Esse número é armazenado na po- que a posição de Willie poderia ter sido 
sição de memória — 5202 quando as te- decrementada no começo da rotina — 
clas M e N são pressionadas juntas. a operação nos dá a certeza de que os 
pés de Willie foram apagados. 

O apontador inicial é recuperado da 
pilha. Em seguida, os padrões 4, 5,6 e 
7 são impressos, formando a figura de 





Complete agora o programa, digitan- 
do as seguintes linhas: 


10 org 55194 

20 mc ld h1,(-5205) 
30 ld de, (62407) 

40 add hl,de 

50 ld a,4 

60 push hl 

70 call 77 


SAINDO DO CHÃO 





80 pop hl Antes de mais nada, a rotina verifi- Willie com as pernas abertas. Acompa- 
90 inc hl ca se o valor que está no acumulador é nhe o apontador em HL e verifique co- 
100 Ilda,6 129. O número em A poderia ser tam- mo isso foi feito. A posição de Wille em 
110 push hl bém 130, 131 ou 132. Caso um desses  — 5205 e — 5204 é atualizada, já que foi 
o pipi PR números esteja presente, as instruções cp deslocada uma posição acima. Depois, 
140 Id de,32 129 e jr nz,mb desviam o programa pa- o programa retorna partindo desse pon- 
150 add hi,de ra o rótulo mb. Porém, quando a roti- to da rotina. 
160 Ida,7 na é chamada pela primeira vez, o nu- Quando a rotina for chamada outra 
170 push hl mero no acumulador é 129. vez, o acumulador conterá 130. O pro- 
180 call 77 Depois dessa checagem, o acumula- cessador pula, então, a primeira parte, 
190 pop hl dor é incrementado e carregado de vol- indo para o rótulo mb. 
200 dec hl ta em — 5202. A seguir, o endereço ini- Essa pequena rotina começa verifi- 
210 ld a,5 cial da Tabela de Nomes da VRAM é cando o conteúdo do acumulador. Se ele 
ços RR ada carregado em HL. A posição de Willie contiver 132, a rotina md é chamada; se 
sado: Qué ni na tela é transferida de — 5205 e — 5204 contiver 130 ou 131, o processador con- 
250 Id (-5205),hl para DE e somada em HL. Adiciona-se tinua executando mb. A primeira coisa 
260 Id de, (62407) o valor 33 nesse par de registros atraves que essa rotina faz é incrementar A € 
270 add hl,de de DE. Com isso, HL passa a apontar carregar o resultado de volta em — 5202. 
280 Id de,64 para o endereço na TN ocupado pelo có- Em seguida, a variável da caminhada é 
290 add hl,de digo do padrão que está adiante dos pés carregada no acumulador. Isso indica ao 
300 call 74 de Willie. A rotina 74 da ROM é cha- processador qual das figuras de Wilhe 
310 cp 52 mada, devolvendo a A o conteúdo da é necessária. 
Seu JE AE, posição da VRAM apontada por HL — O conteúdo do acumulador é compa- 
nega + pi é ou seja, ela faz a leitura na VRAM. rado com 1. Se esse valor está presente, 
350 Id a,3 O código do padrão que se encontra o processador vai para O rótulo me, em 
360 1d b,5 adiante dos pés de Willie é comparado 55194, e imprime a figura de Willie com 
370 call 57000 com 36, o código da língua da cobra. Se as pernas abertas. Se a variável é 0,0 
380 ms 1d a,0 esse valor estiver presente, Willie fatal- processador imprime a figura de Wille 
390 ld (-5203),a mente morrerá, pois está saltando sobre com as pernas juntas. 
400 ret a língua da cobra e será picado. A ins- Antes de imprimir qualquer uma das 
410 md ld a,0 trução jp z, 54848 manda então o pro- figuras, porém, devemos apagar todos 
gt a ani Co cessador para a rotina da morte, apre- — os vestígios da imagem anterior. Para is- 
RG o A ay (62407) sentada anteriormente com O rótulo so, a posição de Wilhe é transferida de 
40 add hi. de mre. Se Willie não morreu, O processa-  — 5205 e — 5204 para HL. DE € carre- 
460 push hi dor compara o código do padrão à fren- gado com o endereço inicial da TN da 
470 Id a,255 te de seus pés com 52, que é o padrão VRAM e somado em HL. A é carrega- 
480 call 77 da encosta. Se o valor não estiver pre- do com 255, o código do padrão de céu. 
490 pop hl sente, a instrução jr nz,ma desvia o pro- O apontador HL é guardado na pilha e 
500 dec hl grama para a rotina ma. Caso contrá- a rotina 77 é chamada, apagando o 
510 ld a,255 rio, a posição do personagem em — 5205 quarto superior esquerdo da figura de 
Pára no div é decrementada. - Willie, O apontador é recuperado da pi- 
SO vob hi - Arotina ma coloca a posição de Wil- lha e somado com 32. A é carregado 
550 Id de,32 lie em HL. DE é carregado com o ende- com 255. O apontador é guardado na pi- 
560 add hl.de reço inicial da TN da VRAM e somado lhaea rotina 77 é chamada, apagando 
570 ld a,255 em HL. Esse valor é guardado na pilha. o quarto inferior esquerdo da figura. 
580 push hl Em seguida, o número 32 é somado em Com isso, apagamos a metade esquer- 
590 call 77 HL através de DE, e o apontador passa da da antiga figura de Willie. A outra 
600 pop hl a indicar os pés na figura anterior de metade desaparece com a impressão da 
610 inc hl |. Willie. O número 255, código do padrão nova figura — desta vez, com as pernas 
620 Id a,255 de céu, é carregado em A. O apontador abertas. 
ba pd der em HL é preservado na pilha ea rotina | O apontador é recuperado da pilha 
650 dd e.32 | 77 da ROM é chamada, escrevendo o e incrementado. A é carregado com 1, 
660  adá hi,de valor de A no endereço da VRAM apon- o código de um dos padrões da figura. 
ld (-5205),hl tado por HL. Apagamos, assim, os pés O apontador é novamente colocado na 
3p 54603 da figura anterior de Willie. pilha e a rotina 77 é chamada. Finali- 
ret O último valor de HL é recuperado  zando, o apontador é recuperado da pi- 
end da pilha e incrementado. A é carregado lha e subtraído de 32, movendo-se um 
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caractere para cima. A é carregado com 
0, o código do outro padrão da figura. 
A rotina 77 é chamada e Willie é impres- 
so com as pernas juntas. 

A posição de Willie é transferida pa- 
ra HL, decrementada e devolvida em 
— 5205 e — 5204. O acumulador, carre- 
gado com 1, é armazenado em — 5203, 
para que, na próxima vez, a outra figu- 
ra de Willie seja impressa. 





SALTO À DISTÂNCIA 


Quando a rotina for chamada de no- 
vo, a variável da caminhada conterá 1 
e o processador irá diretamente para o 
rótulo me. Nessa rotina, a figura de Wil- 
lie com as pernas abertas é impressa da 
mesma maneira que na rotina ma, só 
que sua posição foi incrementada — ou 
seja, Willie avança no ar! 

Os padrões 4, 5, 6€e 7, que compõem 
a figura do personagem com as pernas 
abertas, são colocados na TN (na tela) 
pela rotina 77, que é chamada quatro ve- 
zes. Em seguida, a posição de Wilhe em 
— 5205 e — 5204 é colocada em HL, in- 
crementada e devolvida aos endereços, 
o que faz a figura avançar mais uma 
posição. 





SUBIDA DA ENCOSTA 


Depois disso, devemos verificar se 
nosso personagem está pisando na en- 
costa ou não. Lembre-se de que HL já 
contém a posição de Willie. DE é carre- 
gado com o endereço inicial da TN e so- 
mado em HL. O número 64 também é 
somado em HL através de DE. O apon- 
tador está indicando a posição sob os 
pés de Willie. A rotina 74 é chamada e 
faz a leitura da VRAM nessa posição, 
O valor é comparado com 52, o código 
da encosta. Se esse valor estiver presen- 
te, Willie subiu um lance na montanha, 
Para interromper o salto, coloca-se O em 
— $202. O número 3 é carregado em A 
eos, em B. Esses parâmetros serão uti- 
lizados por outra rotina, chamada na se- 
quência, que realiza a contagem de pon- 
tos; o valor 50 será adicionado no esco- 
re. Mas, como ainda não digitamos es- 
sa rotina, convém colocar uma instru- 
ção ret provisória nesse endereço, o que 
podemos fazer por meio do comando 
BASIC POKE 57000.201. 

Se o padrão da encosta não estiver 
presente, as intruções anteriores são 1g- 
noradas e o processador continua a par- 
tir do rótulo ms. 

A é carregado com O e armazenado 
em — 5203. Isso é feito independente- 
mente de Willie estar pisando na encos- 
ta ou não, e indica que a próxima figu- 


ra a ser impressa é a do personagem com 
as pernas juntas. 


“TERRA FIRME | 


Quando todas as outras figuras de 
Willie já tiverem sido impressas na te- 
la, a variável do salto terá o valor 132. 
Assim, quando a rotina de movimenta- 
ção for chamada novamente, o proces- 
sador irá direto para a última rotina, 
que começa no rótulo md. 

Em primeiro lugar, md ajusta a va- 
riável de salto com O. Esse valor é car- 


















































regado no acumulador e armazenado 
em — 5202. Em seguida, a figura ante- 
rior de Willie com as pernas abertas é 
apagada — para isso, coloca-se o pa- 
drão 255 nas quatro posições, por meio 
da rotina 77. A posição de Willie é car- 
regada em HL e somada com 32 atra- 
vês do par DE. Willie volta, com isso, 
a pisar em terra firme. O resultado é ar- 
mazenado em — 5205 e —- 5204. 

Finalmente, a instrução jp chama a 
rotina de movimentação, Essa rotina, 
além de imprimir a figura de Willie de 
pé sobre o solo, pesquisará o teclado 
mais uma vez. 
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“FIGURAS 


Desenhar objetos em três dimensões, 
mesmo que simétricos, é uma tarefa di- 
ficil — mas não para quem tem um mi- 
crocomputador. Com o programa apre- 
sentado neste artigo, tudo o que você 
tem a fazer é desenhar o perfil de um 
dos lados da figura. A máquina comple- 
tará o trabalho, inclusive preenchendo 
as faces do sólido com traços que per- 
mitirão uma melhor visualização. 

A principal função do programa é 
promover a rotação do perfil que você 
definiu em torno de um eixo central. 
Pode-se, portanto, desenhar qualquer 
figura que possua seções circulares — 
como vasos, garrafas, candelabros, co- 
pos, maçãs, laranjas, enfim, uma enor. 
me variedade de objetos. 

Como o programa roda a linha ori- 
ginal, a figura obtida é denominada só- 
tido de revolução. As versões para to- 
dos os micros possibilitam que se veja 
o produto final de qualquer ângulo. As 
do Spectrum e do TRS-Color realizam 
uma pequena animação, girando a figu- 
ra em torno de seu eixo. 


ROTAÇÃO DA FIGURA 





Para desenhar o perfil do sólido, mo- 
vimentaremos uma linha na tela, 


TRIDIMENSIONAIS 
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Poa 
Pr? 
Pala 


fixando-a quando atingir uma posição 
considerada satisfatória. Essa técnica, já 
empregada em outros programas de [N- 
PUT, permite a visualização de cada 
uma das etapas do desenho. 

Foi estabelecido um limite de vinte re- 
tas para a definição do perfil desejado. 
Na maioria dos casos, onde se utilizam 
apenas cinco ou seis retas, essa quanti- 
dade é mais do que suficiente. Porém, 
se você quiser traçar curvas, terá que 
construí-las com várias retas bem peque- 
nas, podendo chegar perto daquele 
limite. 








0 ÂNGULO DE VISÃO 


Uma grande vantagem do programa 
é permitir ao observador escolher o ân- 
gulo do qual quer ver a figura — não 
só de cima, de baixo ou de frente, mas 
de qualquer ângulo entre 0º e 180º (um 
ângulo de 70º, por exemplo, mostra o 
objeto como se ele estivesse sobre uma 
mesa). Você pode mudar esse ângulo 
quantas vezes quiser e o micro redese- 
nhará o sólido em outra posição. 

O programa armazena as coordena- 







Com a técnica ensinada neste artigo, 
você poderá exibir na tela de seu micro 
diferentes objetos geométricos sólidos. 
Trace o perfil da figura escolhida e 
deixe a máquina fazer o resto por você. 


das de todas as linhas. Quando você aca- 
ba o desenho, ele faz a rotação de cada 
linha ao redor do eixo central, de 18º 
em 18º. Executa em vinte etapas a ro- 
tação completa. O ângulo de visão já é 
levado em conta nesta fase; os círculos 
aparecem mais achatados à medida que 
nos aproximamos dos 90º. 

Assim que o desenho fica pronto, o 
computador espera que o usuário pres- 
sione a barra de espaços para escolher 
um outro ângulo. 





A ANIMAÇÃO 


No Spectrum e também no TRS- 
Color, você poderá ver o objeto execu- 
tar a rotação, ao pressionar uma outra 
tecla. Para isso, o computador desenha 
as posições intermediárias da rotação e 
as armazena na memória, recorrendo à 
técnica de páginas gráficas. Depois que 
todas as páginas estão feitas, elas são 
exibidas em sequência, o que produz o 
efeito de animação. 





UTILIZAÇÃO DO PROGRAMA 


Digite o programa e tente traçar al- 


» gumas figuras sólidas. O processo de de- 


senho consiste em movimentar O cursor 


para a posição desejada e marcar o pon- * 
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“TRÊS DIMENSÕES E ROTAÇÃO DA FIGURA 
m CRIE ALGUMAS FIGURAS EE COMO FUNCIONA O PROGRAMA 
E CONSTRUÇÃODOPERFIL AS TRES ROTINAS 
E COMO ALTERAR EXUNCIZAE 








to inicial. A partir dai, a reta poderá ser THEN GOTO 140 7 o 
| deslocada para qualquer lugar. Quando 170 LET z=CODE 25 E | 
| você estiver satisfeito com sua localiza- 180 IF z=13 THEN GOSUB 500 E o 

ç Eder tap a fivá 190 IF 2=113 THEN GOTO 600 3 

ção, use uma tecla para fixá-la. Prossi | Mies sE 

aos , Eu ; 195 IF 2=109 AND bf<>1 THEN ã | 
ga assim até terminar o perfil da figu- drop 255-x.v: LET) > ER E 
E RErTE A : S=m,y: LET x=xx: LET y Ea 

ra. Para indicar ao micro que o desenho o. ET bf=1 EA 

está pronto, você deverá pressionar uma 200 1F z=53 AND xx>128 THEN “ME ne 

outra tecla. LET xx=xx-1 E] 4 oo 

No Spectrum, use as próprias teclas 210 IF z=8 AND xx>130 THEN E 

do cursor para mover a linha, M para LET xx=xx-2 x & " 

marcar a posição inicial e <ENTER> 220 IF 2=55 AND yy<100 THEN Ea 4 

para fixar a reta. Pressione Q ao termi- LET vyy=yy+l | = U 

nar o desenho. pe a etinde si e pd = = 

No TRS-Color, as teclas do cursor ad sossgite 

também direcionam a linha; <EN- pa e gde Ps 

TER> marca o ponto inicial, a barra 350 1F 2=9 AND xx<194 THEN g * 

de espaços fixa a reta e Y finaliza à ter xx=xx+2 & 

figura. 260 IF 2z=54 AND yy>52 THEN Ex 

Para o MSX, use as setas para des- LET yy=yy-l EA 

locar a linha, | para inicializar o dese- 270 IF z=10 AND yy>51 THEN | 

nho, a Pp pr espaços para fixar a re- ao + (ie Agi E a 

tae F para finalizar. As teclas R e D per- j | f e o 

mitem que você desenhe mais rápido ou gde “ne Po cd Só d 2 4 

mais devagar. SÃO PLOT 255-x,y: DRAW x-xx,yY E = 

No Apple e no TK-2000, use Z X ; <y Ia à 9 3 q 

€ . para movimentar à linha. Os outros 520 LET x=xx: LET y=yy: LET as = A 

comandos são iguais aos do MSX. =aS+CHRS (x-128)+CHRS (y-51): Es Ed 
| OVER 1: RETURN = e | 
= 600 INK 7: CLS : OVER O: DIM a o 
(20,2) % ES | 
10 PRINT AT 0,10; INK 2; 610 FOR a=0 TO 7 = e | 
PAPER 5;"ROTACAO 3D”: PAUSE 620 PRINT AT 21,7; PAPER 2; a 4 
o BRIGHT 1;"DESENHANDO FIGURA "; E: 
20 PAUSE 2500 o! z 
30 CLEAR 30000: PAPER O: INK 630 GOSUB 1000 | 
5: CLS : POKE 23658,0 640 IF a<>0 THEN GOTO 670 
40 GOSUB 2000: BORDER O 650 PRINT AT 19,0; INVERSE 1;” 
50 PRINT AT 0,0; PAPER 6; INK <SPACE> P/ ALTERAR ANGULO DE 

0;” MOVER LINHA = TECLAS DE € OBSERVACAO  - QUALQUER OUT 

URSOR  (CAPSHIFT P/MAIOR VELO RA TECLA PARA CONTINUAR. 

E.) Lil Lad 

60 PRINT : PRINT PAPER 6; 660 LET XS=INKEYS: IF X$="" 

INK 0;” FIXAR LINHA = ENTER THEN GOTO 650 
verem FIXAR CURSOR = 662 IF XS$<>” ”" THEN GOTO 670 
Ly FIM = Q 664 INPUT "DIGITE O NOVO ANGUL 
70 INPUT "ANGULO DE OBSERVACA oO (0-180)";a 
O (0-180)";i: IF 1<X0 OR 1>180 666 IF 1<0 OR 1>180 THEN GOTO 740 NEXT a: GOTO 710 
THEN GOTO 70 662 1000 FOR b=1 TO LEN a$ STEP 2 
80 PLOT 60,100: DRAW 135,0: 668 CLS : LET 1s=SIN (1/180*PI 1010 LET x=CODE as(b) 
DRAW 0,-49: DRAW -135,0: DRAW  ): GOTO 620 1020 LET y=CODE aS(b+1) 
0,49 670 GOSUB 1600 1030 GOSUB 1500 
90 LET 15=SIN (1/180*PI) 680 CLS 1040 NEXT Db 

100 LET bf=0: LET aS="" 690 NEXT a 1050 RETURN 

110 LET x=128: LET y=51 700 PRINT AT 20,11; PAPER 7; 1500 FOR c=0 TO 399 STEP 20 

120 LET xx=x: LET vyy=y INK 1;” FIGURA: *; 1510 LET d=c+(2.25*a): LET py=i 

130 OVER 1 710 FOR a=128 TO 240 STEP 16 » B*y 

140 PLOT x,y: DRAW xx-x,yy-y 720 POKE 30114,a: RAND USR 1515 IF d>=360 THEN LET d=d-36 

150 PLOT x,y: DRAW xx-x,yy-yY 30112 0 





160 LET z5S=INKEYS: IF 2z5="" 730 PRINT AT 20,19;a/16 1520 GOSUB 1530: NEXT c 
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1525 DRAW bx-xd,by-vd: RETURN 

1530 LET vd=SIN (d/180*PI)*x*Co 

S (1/180*PI) 

1532 LET xd=COS (d/180*PI)*x 

1535 LET xd=128+xd: LET vyd=90+y 

d+py 

1540 IF c=0 THEN PLOT xd,yd: L 

ET bx=xd: LET by=yd 

1550 DRAW xd-PEEK 23677,vd-PEEK 
23678 
1560 IF 
1580 
1565 IF b=1 THEN PLOT 128,90: 

DRAW xd-128,vd-90: GOTO 1580 
1570 PLOT a(l+c/20,1),a(l+c/20, 

2): DRAW xd-a(l+c/20,1),yd-a(l+ 

c/20,2) 

1580 LET a(l+c/20,1)=xd 

1585 LET a(l+c/20,2)=yd 

1590 RETURN 

1600 POKE 30102,128+a*16 

1610 RAND USR 30100 

1620 RETURN 

2000 RESTORE 2050 

2010 FOR a=0 TO 23 

READ b: POKE a+30100,b 

NEXT a 

2040 RETURN 

2050 DATA 17,0,0,33,0,64,1,0,16 

,237,176,201 

2060 DATA 33,0,0,17,0,64,1,0,16 

,237,176,201 


10 PMODE 2,1:PCLEAR 2:CLEAR 200 
1 7679:DIM A(19,1) 

20 RD=ATN(1)/45:V=24/ 

30 PCLS 1:SCREEN 1,0 

40 BX=128:BY=190:DRAW"BM128,190 
":X=BX: Y=BY 

50 LINE (31,191)-(255,140),PRES 
ET,B 

60 LINE (BX,BY)-(X,Y), PRESET 

70 IF PEEK(345)=V GOSUB 500 

B0 IF PEEK(339)=191 THEN M=4 EL 
SE M=1 

LINE (BX,BY)-(X,Y7),PSET:IF P 


b=1 AND bf=1 THEN GOTO 


PROGRAMAÇÃO BASIC 
há 


EEK(338)=191 AND A$="" THEN BkX= 
X:BY=Y:BF=1:GOSUB 500 
100 IF PEEK(339)=V AND 
O THEN 160 

110 IF PEEK(341)=V AND 
THEN Y=T-M 

120 IF PEEKR(342)=V AND 
THEN Y=T+M 

130 IF PEEK(343)=V AND 
THEN X=X-M 

140 IF PEEK(344)=V AND 
THEN X=X+M 

150 GoTO 60 

160 GOSUB 2000:SCREEN 1,0:FOR A 
=0 TO 6:PCLS1:FOR G=0 TO A:-PRES 
ET(0,6*2) NEXT 


LEN(AS)> 
da o RR! 
Y+M< 191 
X-M>127 


R+M<223 


170 GOSUB 1000 

180 G5S=INKEYS 

190 IF A=0 AND G53="" THEN 180 

200 IF A=0 AND G$=" " THEN 160 

210 NEXT | 

220 FOR A=0 TO 6:PCOPY 5S+A*2 TO 
1:PCOPY 6+A*2 TO 2:NEXT 

230 IF INKEYS=" ” THEN 160 ELSE 
220 


500 LINE (BX,BY)-(X,Y), PRESET 
510 LINE(255-BX,BY)-(255-X,Y7),P 
RESET 

520 BX=X:BYy=Y:AS=AS+CHRS (X-128) 
+CHAS (190-Y) : RETURN 

1000 FOR B=1 TO LEN(AS) STEP 2 
1010 X-=ASC(MIDS (AS,B,1)):Y=ASC( 
MIDS (AS,B+1,1)) 

1020 GOSUB 1500:NEXT 

1030 PCOPY 1 TO 5+A*2:PCOPY 2 T 
O 6+4*2 

1040 RETURN 

1500 FOR C=0 TO 360 STEP 20 
1510 D=C+20%A/7:PY=IS*Y 


7 1520 GOSUB 1530:NEXT:RETURN 
1530 YD=110-SIN(D*RD) *X*COS(I*R 
D)-PY:XD=128+C05 (D*AD) FA 
|Jb40 IF C=0 THEN LINE(XD.YD) (X 
D, YD), PRESET;BX=XD:BY=YD 
1550 LINE-(XD, YD), PRESET 
1560 IF B=1 AND BF=1 THEN 1580 
ELSE JF B=1 THEN LINE(128,110)- 
(XD, YD), PRESET:GOTO 1580 
Ih/U LINE(A(C/20,0) ,A(C/20,1))- 
(XD, YD), PRESET 
1580 A(C/20,0)=NXD:A(C/20,1)=YD: 
HETURN 
“000 CLS: INPUT" ANGULO 
VACAO (0-180) "Gl 
2010 IF I<O OR 1>180 THEN 2000 
2020 IS-SIN(I*RD) : RETURN 


DE OBSER 





10 SCREEN 2:DIM A(19,1) 
20 AD=ATN(1)/45:M=1 
30 LINE (127,66)-(207,126),15,B 


35 LINE (47,66)-(127,126),14,BF 
40 BX=127:DBY=126:X=BX:YT=BY:XX=B 
X:YY=BY 

60 LINE (BX,BY)-(X,Y),8B 

70 C5S=INKEYS:IF CS=""THEN 70 

75 IF C$=" " THEN GOSUB 500 

BO IF CS5="R” THEN M=4 

85 IF C5S="D”" THEN M=1 

90 LINE(BX,BY)-(X,Y),15:IF CS=" 
1” AND AS="" THEN BX=X:BY=Y:BF= 


1:GOSUB 500 
100 IF €CS="F" AND LEN(AS)>20 THE 
N 160 


110 IF CS=CHR$(30) AND Y-M>66 T 
HEN Y=Y-M 

120 IF CS=CHR$(31) AND Y+M<126 

THEN Y=T+M 

130 IF CS=CHR$S(29) AND X-M>12/ 

THEN R=X-M 

140 IF CS=CHRS (28) AND XK+M<20/ T 
HEN X=X+M 

150 GoToO 60 

160 GOSUB 2000 

170 COLOR,11,11:SCREEN 2:GOSUB 


s [TI T 














1000 

190 CS=INKEYS: IF CS="" 
200 GOTO 160 

200 LINE (BX,BT)-(X,Y7),1 

910 LINE (255-BX,B7)-(255-X,7Y), 
1 

520 BX=X:BY=Y:AS=AS+CHRS (X-126) 
+CHRS$ (12/-T) RETURN 

1000 FOR B=1l TO LEN(AS) STEP 2 
1010 X=ASC(MIDS(AS,B,1)):Y=ASC( 
MIDS (AS,B+1,1)) 


THEN 190 


1020 GOSUB 1500:NEXT B 

1040 RETURN 

1500 FOR C=0 TO 399 STEP 20 
1510 D=C:PY=IS*(Y7*.5) 

1520 GOSUB 1530:NEXT C:RETURN 
1530 YD=96-SIN(D*BRD) *X*COS (T*RD 
)-PY:XD=12/+C0S (D*RD) *X 

1540 TF C=0 THEN BX=XD:BY=YD:XXK 


=XD:YY=YD 

1550 LINE(XX, YY)-(XD,YD), 1:XX=X 
DES d dd do) 

1560 IF B=1 AND BRF=1 THEN 1580 

1565 IF B=1 THEN LINE(B0,91])-(X 
D,YD),1L:-GOTO 1580 

1570 LINE(A(C/20,0),A(C/20,1))- 
(XD, YD),1 

1580 XX=XD:YY=YD:A(C/20,0)=XD:A 
(C/20,1)=YD: RETURN 

2000 SCREEN O:KET OFF:COLOR 15, 
4,4:LOCATE 8,8 :INPUT"Ângulo de 
visão:";I 

2010 TF I<O OR 1I>180 THEN 2000 

2020 IS=SIN(I*BRD): RETURN 


Ci ol 


10 HOME : HGR : DIM A(19,1) 
20 BD = ATN (1) / 45:M = à 

30  HCOLOR= 6: HPLOT 140,90 TO 
220,90 TO 220,149 

40 BX = 140:BY = 149:X = 
BT:XX = BX:YY = BY 
50 VUTAB (21): PRINT 
C<I2ZNICIO-<F>IM 

52 VTAB (22): PRINT "VELOCIDAD 

E DO RISCO: <R>APIDO-<D2EVAGAR” 


O 


"COMANDOS : 


54 VTAB (23): PRINT "BARRA DE 
ESPACO: FIXA A RETA” 
56 VTAB (24): PRINT 


CE, AH ,S72,4.2"; 


"DIRECAO: 











TT 


60 HCOLOR= 3: HPLOT BX,BY TO K 
4 

7O GET CS: IF €C9 =” * THEN 6 
OSUB 500 

BO IF CS = CRº THEN M = 4 

GS) IF CS = CD" THEN M = l 

90 HCOLOR= O: HPLOT BX,BY TO X 
E A 6 e O RA a 4: > 

N BX = X:BY = Y:BF = 1: GOSUB 5 
00 

100 IF CS = "EF" AND JLEN (AS) 
> O THEN 160 

1410 IF CS = ";” ANDY -M> 90 
THEN TT =T-M 

120 IF CS = ".7 AND T+ M«< 15 
O THEN Y = Y+M 

130 IF CS = "Z” AND X - M > 14 
O THEN X = X - M 

140 IF CS = "X" ANDX+M«< 22 
O THEN X =X + M 

150 GcoTo 60 

160 HGR : GOSUB 2000 

170 GOSUB 1000 

190 GET CS: IF CS =” " THEN 1 
oO 

195 GOTO 190 

500 HCOLOA= 3: HPLOT BX,BY TO 

XY 

510 HPLOT 281 - BX,BY TO 281 - 
XY 

520 BX = X:BY = Y:AS = AS + CH 

R$ (X - 140) + CHR$ (149 - T): 
RETURN 

1000 FOR B = 1 TO LEN (AS) ST 

EP 2 

1010 X = ASC ( MIDS (AS,B,1)): 

Y = ASC ( MIDS (AS,B + 1,1)) 
102 GOSUB 1500: NEXT B 

1040  RETUABN 

1500 FOR C=0O TO daI99 STEP RO 
1510 D= C:PY = IS*(YÃ*õ.5) 
1520 GOSUB 1530: NEXT C: RETUR 

y| 

1530 YD = BO - SIN (D * RD) * 

x * COS (I * AD) - PY:XD = 140 


+ COS (D * AD) * X 























E possível realizar em um micro anima- 
ções gráficas em três dimensões como 
as que aparecem na TV? 

Os grafismos animados em três di- 
mensões que aparecem em vinhetas de 
televisão, e nos filmes produzidos por 
computador (TRON, por exemplo), de- 
vem sua espantosa qualidade e realis- 
mo às máquinas que os elaboram - 
geralmente, supercomputadores do ti 
po Cray |l, com capacidade de execu- 
tar sessenta milhões de operações em 
ponto flutuante por segundo. 

A técnica utilizada, entretanto, não 
difere da que explicamos neste artigo 
para gerar sólidos de revolução. Super- 
fícies complexas são montadas por mi- 
lhares de “tijolos” regulares, depois, 
“alisados'' por algoritmos especiais, o 
que lhes dá um aspecto contínuo. Ou- 
tros programas pintam as superfícies 
com cores selecionadas, adicionam bri- 
lho e sombra etc., tornando o resulta- 
do o mais realista possível. 

Os micros podem, teoricamente, 


executar quase tudo o que um compu- 
tador de grande porte faz. Porém, têm 
telas com menor resolução gráfica, me- 
nor número de cores, enfim, não con 
tam com os mesmos recursos. Não se 
pode esperar, portanto, que produzam 
efeitos de igual qualidade. 












































A figura tridimensional é construida 


a partir de um simples perfil. 


1540 
= TU: 
1550 
XD, Y 
1560 
1580 
1565 


1570 
0,1) 
1580 
, = 


IF € 
AX = 


= O THEN BX = 
ADEA É d 


HCOLOR= 3: 


D: XX 
a: 


IF B 


TO XD 
XX = 


e 


- AD:TI 
= 1 AND BF 


=] 


+1D 
XD: YY 


THEN HPLOT 80,9 
1l TO XD,YD: GOTO 1580 
HPLOT A(C / 20,0) A(C / 2 


XD:A(C / 20,1) 


HPLOT 
YD 


= | THEN 


YD: RETURN 


XD: BY 


XX, YY TO 


DpaAUTHE PICTUBE 1 DUT DF EB 





O microcomputador elabora o desenho 
executando a rotação de cada reta. 


INPUT * 
E 


2000 HOME VTAB (23): 
ANGULO DE VISAO (0-180): 


2010 IFI<OGORI > I80 THEN 
2000 
2020 IS = SIN (I * RD): RETURN 


COMO FUNCIONA. 


Todos os programas funcionam de 
modo muito semelhante. Às partes mais 

















DEAL TNO PICTURE 1 rr OF 8 


O produto final — o sólido de 
revolução — é exibido em três dimensões. 


importantes são as rotinas que permitem 
o traçado do perfil, criam o sólido de 
revolução e fazem-no girar. 


INTRODUÇÃO DO PERFIL 





A rotina de desenho começa na linha 
60 (linha 140, no micro Spectrum). Ela 
simplesmente lê as teclas que foram 
pressionadas e atualiza o valor das coor- 
denadas da linha auxiliar. O desenho de- 
finitivo é feito pela rotina da linha 500, 
que também traça o perfil esquerdo da 
figura, 

Cada vez que se fixa uma linha, as 
coordenadas de sua extremidade são ar- 
mazenadas. Primeiro, subtrai-se um nu- 
mero de cada coordenada para obter 
uma nova coordenada, relacionada ao 
ponto de partida do desenho. Em segui- 
da, esses núrheros são convertidos em 
caracteres e adicionados ao final de uma 
variável alfanumérica (AS ou a5). 

A rotina da linha 2000 (70, no Spec- 
trum) permite que se defina o ângulo de 
visão. Depois, o programa é desviado 
para a linha 1000, que cria e desenha o 
sólido em três dimensões. 





TERCEIRA DIMENSÃO 


Essa rotina utiliza as coordenadas 
previamente armazenadas e o ângulo de 
visão que você definiu para transformar 
o perfil em um sólido de revolução. A 
técnica matemática usada por esta roti- 
na é a mesma para todos os computa- 
dores, embora os comandos gráficos se- 
jam diferentes. 

Na linha 1000, um laço controlado 
pela variável B seleciona cada uma das 
suas linhas, tomando as coordenadas f- 
nais da variável A$. O programa salta, 
então, para a rotina da linha 1500, Es- 
sa rotina desloca as coordenadas finais 
de acordo com o ângulo requerido e tra 
ça as novas retas que irão compor a fa- 
































“ 


“a 


DC OD SESI RR 





ce do sólido relativa àquela reta inicial. 
Isso é feito vinte vezes — sua linha ini- 
cial será, portanto, redesenhada vinte 
vezes ao redor de um circulo, Em segui- 
da, a rotina retorna à linha 1000 para 
lazer o mesmo com a próxima linha, Ao 
executar O programa, você poderá ob- 
servar essas clapas da elaboração do 
sólido. 

Como você já deve ter observado, o 
processo empregado para desenhar a 
primeira linha da figura é um pouco di- 
lerente do utilizado para as demais, já 
que esta linha possui duas coordenadas, 
a imicial e a Final, 

As linhas 1560 e 1565 verificam se a 
reta a ser trabalhada é a inicial. Se B= |, 
a reta é realmente a primeira de todas; 
se BF = 1, cla não deve ser traçada, pois 
corresponde apenas ao deslocamento 
para a definição do ponto inicial. Se 
houve um deslocamento, o programa 


armazenará as coordenadas do ponto 
inicial na variável alfanumérica. Essas 
coordenadas serão o ponto de partida 
para a próxima linha. Caso o primeiro 
movimento não tenha sido um desloca- 
mento, o ponto inicial será o centro, a 
posição inicial do cursor; O ponto fixa- 
do, por sua vez, será a coordenada fi- 
nal da primeira reta, 

Através deste processo, cada reta do 
perfil será “multiplicada” por vinte e to- 
das elas terão suas extremidades ligadas 
por um círculo, gerando o efeito de três 
dimensões. 








A ROTAÇÃO | 





O Spectrum c o TRS-Color, como 
dissemos, ainda oferecem o artifício de 
animar a figura na tela, ao toque de uma 
tecla. O número de figuras (A) é con- 
trolado pelo laço das linhas 610 a 690, 
no Spectrum, e da linha 220 no TRS- 
Color. A variável A controla também a 
rotação parcial de cada figura, por meio 
de uma modificação no ângulo de visão 
(linha 1510), Finalmente, os quadros são 
exibidos em sequência, criando o efeito 
de animação. 















Use o micro para ter acesso a um 
sofisticado sistema de intercâmbio 
de informações: o videotexto. 

Ele colocará à sua disposição uma 
variada gama de serviços. 


Utilizado isoladamente, um micro- 
computador doméstico é capaz de de- 
sempenhar uma grande variedade de ta- 
refas. Estas se multiplicam, porém, 
quando ele passa a integrar uma rede de 
computadores — o que, nos últimos 
anos, se tornou possível no Brasil. 

No artigo da página 561, vimos co- 
mo a tecnologia dos modems (modula- 
dor-demodulador) permite que se recor- 
ra à rede telefônica normal para envio 
e recepção de mensagens, textos, dados, 
programas e gráficos em forma digital. 
Um computador pode, assim, ““conver- 
sar”* com outro de uma maneira barata 
e relativamente rápida. 

Existem diferentes tipos de rede de 
computadores que empregam o telefone 
e o modem como meios de comunicação. 
As redes de área local (LAN) ou ampla 
(WAN), compostas apenas por micro- 
computadores (como os quadros de avi- 
sos, ou bulletins boards), serão exami- 
nadas em outro artigo. Aqui, trataremos 
das redes em que o microcomputador 
é usado como terminal de um compu- 
tador maior. 


| COMO FUNCIONA 


O videotexto é um exemplo desse ti- 
po de rede. O sistema estabelece o con- 
tato do usuário com um computador de 
grande porte, por meio da rede teletô- 
nica normal. O microcomputador não 
é indispensável à rede: o usuário preci- 
sa ter apenas um terminal de videotex- 
to. Este é um pequeno aparelho dotado 
de microprocessador e teclado portátil, 
que usa como saída de vídeo um apare- 
lho de TV doméstico. 

O software operacional do videotex- 
to permite não só a implementação de 
uma estrutura própria de dados, bem 


' como sua consulta pelo usuário. As in- 


formações armazenadas no computador 





central do sistema videotexto são orga- 
nizadas em páginas. Cada página cor- 
responde a uma ou mais telas de video 
contendo texto e ilustrações, ambos em 
cores. Para sua composição, utiliza-se 
um conjunto de caracteres gráficos ti- 
picos de videotexto. 

As páginas são organizadas segundo 
uma estrutura em forma de árvore. O 
usuário pode “explorar” à vontade es- 
sa árvore, chamando à tela — por meio 
de seleções efetuadas pelo teclado — as 
diversas páginas que compõem um de- 
terminado conjunto. As opções feitas 
são enviadas ao computador central, 
que então encaminha a página solicita- 
da para o terminal de videotexto, por in- 
termédio da linha telefônica. 

O uso do videotexto é aberto a assi- 
nantes — ou seja, o usuário que dese- 
jar ter acesso ao mesmo deve pagar uma 
assinatura mensal, debitada na conta te- 
lefônica normal, além de uma taxa de 
utilização, que varia proporcionalmen- 
te ao tempo que o terminal permanece 
conectado ao sistema. 

Os dados armazenados no computa- 
dor central são fornecidos por empre- 
sas, Órgãos governamentais, jornais, re- 
vistas e outras fontes, que mantêm suas 
próprias páginas de informação, atua- 
lizando-as frequentemente. 

O videotexto oferece uma enorme va- 
riedade de serviços informativos e re- 
creativos: notícias do dia, indicadores 
econômicos e cotações das bolsas, pro- 
gramação de cinemas e teatros, publi- 
cações, transportes aéreos, turismo, in- 
formações científicas e médicas, horós- 
copo, números da lista telefônica, pro- 
dutos à venda etc. Como o sistema é in- 
terativo, inclui ainda serviços em que a 
participação do usuário é mais intensa, 
tais como: videogames, troca de mensa- 
gens pessoais, anúncios classificados, re- 
serva de passagens aéreas, solicitação de 
catálogos, concursos, telecompras etc. 

O sistema é fácil de usar, fornecen- 
do ao usuário todas as instruções neces- 
sárias € os menus para seleção. 





CONEXÃO A UM MICRO 


Como” já dissemos anteriormente, 
mesmo aqueles que não possuem um 


VIDEOTEXTO E 
MICROCOMPUTADORES 


O QUE É O VIDEOTEXTO 
E COMO FUNCIONA 
INFORMAÇÕES E SERVIÇOS 
CONEXÃO AO VIDEOTEXTO 
COMPATIBILIDADE 





computador doméstico podem se asso- 
ciar ao sistema videotexto utilizando um 
terminal alugado pela própria compa- 
nhia telefônica local por um valor môó- 
dico (não é necessário comprá-lo). 

Entretanto, a conexão de um micro 
ao sistema videotexto traz algumas van- 
tagens ao usuário — entre elas o acesso 
a alguns serviços de fornecimento gra- 
tuito de software, que pode ser copiado 
com grande facilidade em fita cassete ou 
disco. Dispondo de um computador, o 
usuário tem ainda a possibilidade de his- 
tar em impressora as informações for- 
necidas pelo sistema, para exame pos- 
terior. 

Para conectar o seu micro ao siste- 
ma videotexto, basta ter: 


e uma porta serial assíncrona, do tipo 
RS-232C (se seu computador não dispõe 
de uma, você precisará comprar uma 
placa de expansão); 


* um modem de 1200 bips por 75 (exis- 
tem tipos especiais para videotexto, al- 
guns deles disponíveis também como 
placas internas de expansão); 


* um programa de emulação de termi- 
nal de videotexto, que deve ser carrega- 
do previamente na memória do seu mi- 
cro, quando quiser acessar O serviço. 


Já existem “pacotes” para acesso ao 
videotexto, contendo os componentes 
mencionados, para praticamente todos 
os tipos de microcomputadores nacio- 
nais. Algumas companhias telefônicas 
alugam ou vendem Kits de acesso para 
os modelos mais populares, como o Ap- 
ple II e seus compatíveis. Mesmo micros 
bem simples, como o TK-90X, podem 
ser conectados ao videotexto (não é pre- 
ciso ter uma unidade de disquete). 

Finalmente, para se beneficiar do sis- 
tema, será necessário que você se inscre- 
va como assinante do videotexto junto 
à companhia telefônica. Consulte-a pa- 
ra saber se o serviço está disponível em 
sua cidade e se seu micro foi credencia- 
do para acesso ao videotexto. Em caso 
de resposta afirmativa, você poderá ob- 
ter também a informação sobre onde 
conseguir o kit de acesso, para aluguel 
ou compra. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NIHnnanNO PRÓXIMO NÚMERONEEEEHI! 


PROGRAMAÇÃO BASIC 
Amplie a capacidade musical de seu micro reduzindo os dados 
necessários à execução de melodias. 


CÓDIGO DE MÁQUINA 
Avalanche: a última morte de Willie. Funeral. Descida ao inferno. Placar. 


PROGRAMAÇÃO BASIC 
Veja como usar pequenas rotinas para remover espaços 
em branco e converter maiúsculas em minúsculas e vice-versa. 


APLICAÇÕES 
Com um programa simples, os usuários do TRS-Color poderão manipular diretamente 
a informação contida nos disquetes. 





